10 G$ = "****************************************": TEXT : NORMAL : HOME : HTAB 30: PRINT "3/21/83": PRINT : PRINT G$: PRINT G$: VTAB 8: FOR I = 1 TO 12: READ A$: GOSUB 180: NEXT I: PRINT : PRINT G$: GOSUB 230: GOSUB 160:A$ = "THE RENUMBER FIX": VTAB 2: INVERSE : GOSUB 180: NORMAL
90 PRINT : PRINT : FOR I = 1 TO 3: READ A$: GOSUB 340: NEXT I: HTAB 10: PRINT "(4) TYPE 12B5:AC AB <RETURN>": FOR I = 1 TO 3: READ A$: GOSUB 340: NEXT : PRINT : PRINT : PRINT : FOR I = 1 TO 5: READ A$: GOSUB 180: NEXT I: GOSUB 230: GOSUB 160: VTAB 2: FOR I = 1 TO 20: READ A$: GOSUB 180: NEXT : GOSUB 230: GOTO 250
160 J = 12: FOR I = 11 TO 0 STEP -1:J = J +1: POKE 34,I: POKE 35,J: FOR L = 1 TO 20:X = PEEK( -16336): NEXT L: HOME : NEXT I: RETURN
180 V = PEEK(37):S$ = "": FOR X = 1 TO 20 - LEN(A$)/2:S$ = S$ +" ": NEXT :A$ = S$ +A$ +S$: IF LEN(A$)/2 < > INT( LEN(A$)/2) THEN A$ = A$ +" "
220 FOR X = 1 TO 20:PR$ = LEFT$(A$,X) + RIGHT$(A$,X): VTAB V: HTAB 21 -X: PRINT PR$: NEXT X: RETURN
230 VTAB 23: HTAB 11: INVERSE : PRINT "<<PRESS SPACE BAR>>";: POKE -16368,0: GET A$: NORMAL : RETURN
250 SP = -16336: INVERSE : FOR X = 1 TO 20: FOR Y = 1 TO 23: HTAB X: VTAB Y: PRINT CHR$(32);: HTAB 41 -X: VTAB Y: PRINT CHR$(32);:S = PEEK(SP): NEXT Y,X: NORMAL : VTAB 2: HTAB 2: PRINT SPC( 38);: VTAB 22: HTAB 2: PRINT SPC( 38): FOR Y = 2 TO 22 STEP 2: VTAB Y: HTAB 2: PRINT " ";: HTAB 32: PRINT " ";: NEXT Y
290 INVERSE : VTAB 9: HTAB 9: PRINT "SEND ANY REPLY TO:": VTAB 11: HTAB 11: PRINT "ROBERT CARLSON": HTAB 11: PRINT "191 ACORN LANE": HTAB 11: PRINT "BLOOMINGDALE,IL 60108": FLASH : VTAB 24: HTAB 7: PRINT "<<ANY KEY FOR PAL MENU>>";: POKE -16368,0: GET A$: NORMAL : GOSUB 160: HOME : VTAB 12: HTAB 10: PRINT CHR$(7) CHR$(7);: FLASH : PRINT "SOFTDISK IS GREAT!!": NORMAL : PRINT CHR$(13) CHR$(4);"RUN PAL.MENU"
340 HTAB 10: PRINT A$: RETURN : DATA I HAVE A REQUEST AND A GENERAL INT-,REST ANSWER TO PAL.06413.MILNES.JAN.83.A.,,THE SOLUTION TO THE ,PROBLEM WHICH THE APPLE 'RENUMBER',PROGRAM HAS WITH CHANGING VALUES,AFTER ENCOUNTERING AN '*' HAS,APPEARED IN SEVERAL PLACES.
360 DATA BUT WHY GO SEARCHING WHEN WE HAVE,SOFTDISK. THE FIX TO CORRECT THIS,ANNOYING PROBLEM APPEARS ON THE NEXT,SCREEN!: DATA (1) INSERT SYSTEM MASTER COPY,(2) LOAD RENUMBER,(3) CALL -151,(5) UNLOCK RENUMBER,(6) SAVE RENUMBER,(7) LOCK RENUMBER
380 DATA AFTER THIS PROCEDURE YOU MAY RUN,RENUMBER NORMALLY AND THE PROBLEM,WILL HAVE BEEN SOLVED.,,NOW FOR MY REQUEST
390 DATA I WOULD LIKE TO OBTAIN A COPY,OF AN ARTICLE WHICH APPEARED IN THE,AUGUST 1982 ISSUE OF CALL-A.P.P.L.E..,THE ARTICLE WAS ENTITLED 'GARBAGEMEN,STRIKE' AND DEALT WITH AVOIDING,THE APPLESOFT GARBAGE COLLECTION
400 DATA ROUTINE. I WOULD REALLY LIKE TO,GET THE ENTIRE ISSUE IF POSSIBLE.,,I HAVE TRIED LOOKING THROUGH COUNTLESS,COMPUTER STORE BACK-ISSUE RACKS,TO NO AVAIL. I DO NOT SUBSCRIBE TO,CALL-A.P.P.L.E. AND THEREFORE CANNOT,OBTAIN BACK ISSUES
410 DATA BELIEVE ME - I HAVE TRIED EVERYTHING!,,ANYONE WHO CAN HELP ME PLEASE,DROP ME A LINE . . .,,THANKS IN ADVANCE
